 
C     $Id: ltouts.F 17 2012-12-07 05:10:30Z wangsl2001@gmail.com $
*Deck LTOutS
      Subroutine LTOutS(IOut,String,Num,N,A,Key)
      Implicit Real*8(A-H,O-Z)
C
C     Print a heading, followed by a lower triangular matrix.
C     If Num is positive, it is also printed.
C
      Character*(*) String
      Dimension A(*)
 1000 Format(1X,A,I10)
 1010 Format(1X,A)
C
      LStr = Max0(LinEnd(String),1)
      If(Num.gt.0) then
        Write(IOut,1000) String(1:LStr), Num
      else
        Write(IOut,1010) String(1:LStr)
        endIf
      Call LTOut(IOut,N,A,Key)
      Return
      End
